# Title     : TODO
# Objective : TODO
# Created by: Administrator
# Created on: 2019/9/2

library(tidyverse)
data<-read_csv("AllMet1.csv")
data
write_excel_csv(data,"out.csv")

# library(igraph)
# library(sigmaNet)
# library(magrittr)
# library(htmlwidgets)
#
# data(lesMis)
#
# l <- layout_nicely(lesMis)
# sig <- sigmaFromIgraph(graph = lesMis, layout = l)
#
# ## Not run:
# saveWidget(sig, file ='myFile.html',selfcontained = F)

